home *** CD-ROM | disk | FTP | other *** search
- %%BeginResource: procset Howsoft_DotGain 0.1 0
- %%Title: (Dot gain correction)
- %%Version: 0.1 0
- %%CreationDate: (9/17/96) () % (17-Sep-1996)
- %%Copyright: ((C) 1996 Howsoft All Rights Reserved)
- /HDGdict 6 dict def
- HDGdict begin
-
- /HDGRange { % <value> <low> <high> HDGRange
- 3 1 roll 2 copy lt {exch} if
- pop 2 1 roll 2 copy gt {exch} if
- pop
- }bind def
-
- /HDGGAM 1.0 def
- /HDGMAX 1.0 def
- /HDGMIN 0.0 def
-
- /HDGTransfer { % <highlight%> <shadow%> <gamma> HDGTransfer
- /HDGGAM exch def
- 100.0 div /HDGMAX exch def
- 100.0 div /HDGMIN exch def
- [ { dup dup 0 ne exch 1 ne
- and { HDGdict begin
- 1.0 exch sub
- HDGMAX HDGMIN sub mul
- HDGMIN add
- 1.0 exch sub
- HDGGAM exp
- 0 1 HDGRange
- end
- } if
- } /exec load currenttransfer /exec load ] cvx settransfer
- }bind def
-
- end
- %%EndResource
-